      MODULE employv2kp_c4
      USE employv2kp_c1
      CONTAINS
      SUBROUTINE SSRITC(MMNST,SSZ,CSNO,
     *  DRCMEM,RCMEM,DICMEM,ICMEM,ERRMES)
      INTEGER CSNO,MMNST,SSZ(MMNST)
      INTEGER DRCMEM,DICMEM,ICMEM(DICMEM)
      REAL RCMEM(DRCMEM)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSRITC')
      IF(CSNO.EQ.1) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00001,ERRMES)
      ELSE IF(CSNO.EQ.2) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00002,ERRMES)
      ELSE IF(CSNO.EQ.3) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00003,ERRMES)
      ELSE IF(CSNO.EQ.4) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  RCMEM,C00004,ERRMES)
      ELSE IF(CSNO.EQ.5) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00005,ERRMES)
      ELSE IF(CSNO.EQ.6) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00006,ERRMES)
      ELSE IF(CSNO.EQ.7) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00007,ERRMES)
      ELSE IF(CSNO.EQ.8) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00008,ERRMES)
      ELSE IF(CSNO.EQ.9) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00009,ERRMES)
      ELSE IF(CSNO.EQ.10) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00010,ERRMES)
      ELSE IF(CSNO.EQ.11) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00011,ERRMES)
      ELSE IF(CSNO.EQ.12) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00012,ERRMES)
      ELSE IF(CSNO.EQ.13) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00013,ERRMES)
      ELSE IF(CSNO.EQ.14) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00014,ERRMES)
      ELSE IF(CSNO.EQ.15) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00015,ERRMES)
      ELSE IF(CSNO.EQ.16) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00016,ERRMES)
      ELSE IF(CSNO.EQ.17) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00017,ERRMES)
      ELSE IF(CSNO.EQ.18) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00018,ERRMES)
      ELSE IF(CSNO.EQ.19) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00019,ERRMES)
      ELSE IF(CSNO.EQ.20) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00020,ERRMES)
      ELSE IF(CSNO.EQ.21) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00021,ERRMES)
      ELSE IF(CSNO.EQ.22) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00022,ERRMES)
      ELSE IF(CSNO.EQ.23) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  RCMEM,C00023,ERRMES)
      ELSE IF(CSNO.EQ.24) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00024,ERRMES)
      ELSE IF(CSNO.EQ.25) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00025,ERRMES)
      ELSE IF(CSNO.EQ.26) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00026,ERRMES)
      ELSE IF(CSNO.EQ.27) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00027,ERRMES)
      ELSE IF(CSNO.EQ.28) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00028,ERRMES)
      ELSE IF(CSNO.EQ.29) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00029,ERRMES)
      ELSE IF(CSNO.EQ.30) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00030,ERRMES)
      ELSE IF(CSNO.EQ.31) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00031,ERRMES)
      ELSE IF(CSNO.EQ.32) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00032,ERRMES)
      ELSE IF(CSNO.EQ.33) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00033,ERRMES)
      ELSE IF(CSNO.EQ.34) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00034,ERRMES)
      ELSE IF(CSNO.EQ.35) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00035,ERRMES)
      ELSE IF(CSNO.EQ.36) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00036,ERRMES)
      ELSE IF(CSNO.EQ.37) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00037,ERRMES)
      ELSE IF(CSNO.EQ.38) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  RCMEM,C00038,ERRMES)
      ELSE IF(CSNO.EQ.39) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00039,ERRMES)
      ELSE IF(CSNO.EQ.40) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00040,ERRMES)
      ELSE IF(CSNO.EQ.41) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00041,ERRMES)
      ELSE IF(CSNO.EQ.42) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00042,ERRMES)
      ELSE IF(CSNO.EQ.43) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00043,ERRMES)
      ELSE IF(CSNO.EQ.44) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00044,ERRMES)
      ELSE IF(CSNO.EQ.45) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00045,ERRMES)
      ELSE IF(CSNO.EQ.46) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00046,ERRMES)
      ELSE IF(CSNO.EQ.47) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00047,ERRMES)
      ELSE IF(CSNO.EQ.48) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00048,ERRMES)
      ELSE IF(CSNO.EQ.49) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00049,ERRMES)
      ELSE IF(CSNO.EQ.50) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00050,ERRMES)
      ELSE IF(CSNO.EQ.51) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00051,ERRMES)
      ELSE IF(CSNO.EQ.52) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00052,ERRMES)
      ELSE IF(CSNO.EQ.53) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00053,ERRMES)
      ELSE IF(CSNO.EQ.54) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00054,ERRMES)
      ELSE IF(CSNO.EQ.55) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  RCMEM,C00055,ERRMES)
      ELSE IF(CSNO.EQ.56) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00056,ERRMES)
      ELSE IF(CSNO.EQ.57) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  RCMEM,C00057,ERRMES)
      ELSE IF(CSNO.EQ.58) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  RCMEM,C00058,ERRMES)
      ELSE IF(CSNO.EQ.59) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  RCMEM,C00059,ERRMES)
      ELSE IF(CSNO.EQ.60) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00060,ERRMES)
      ELSE IF(CSNO.EQ.61) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  RCMEM,C00061,ERRMES)
      ELSE
       ERRMES='E-Unexpected CSNO'
       GOTO 15500
      END IF
      IF(ERRMES(1:1).EQ.'E') GOTO 15000
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END SUBROUTINE SSRITC
      END MODULE employv2kp_c4
